home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / internet / rose / scripts.z / DATEXNUI.SCR < prev    next >
Encoding:
Text File  |  1992-12-09  |  2.6 KB  |  85 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !  
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  DATEX Script:                                                      !    
  10. !     Connect to Datex-P using a NUI                                  !
  11. !         Insert NUI - Part A in line 42                              !
  12. !         Insert NUI - Part B in line 49                              !
  13. !     Success:  returns %Success                                      !
  14. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  15. !                                                                     !
  16. !     $Revision::   1.0      $                                        !
  17. !                                                                     !
  18. !---------------------------------------------------------------------!
  19.  
  20. Tries = 5;
  21. on cancel goto Return_Cancel;
  22.  
  23. Wait_Datex:
  24.  
  25.     if Tries = 0 goto Datex_Failure;
  26.     Tries = Tries - 1;
  27.  
  28.     show "Connecting to Datex-P";
  29.     wait until 15;
  30.     send ".";
  31.  
  32.     wait until 15;
  33.     send %CR;
  34.  
  35.     wait
  36.     "DATEX-P:"              goto Send_NUI
  37.     until 30;
  38.  
  39.     goto Wait_Datex;
  40.  
  41. Send_NUI:
  42.  
  43.     wait until 30;
  44.     show "Sending NUI - Part A";
  45.     send "NUI DXXXXXXX" & %CR;                ! Insert your NUI -      !
  46.                                          ! part A here            !
  47.     wait until 15;
  48.  
  49. Send_NUI_B:
  50.  
  51.     show "Sending NUI - Part B";
  52.     send "XXXXXX" & %CR;                      ! Insert your NUI -     !
  53.                                          ! part B here           !
  54.     wait
  55.     "aktiv"                 goto Send_Datex_Host,
  56.     "Fehler"                goto NUI_Failure 
  57.     until 30;
  58.  
  59. Send_Datex_Host:
  60.  
  61.     show "Calling CompuServe";
  62.     wait until 15;
  63.     send "4569002330" & %CR;
  64.  
  65.     wait
  66.     "User ID:"              goto Return_Success,
  67.     "Host Name:"            goto Return_Success
  68.     until 90;
  69.  
  70.     goto Wait_Datex;
  71.  
  72. NUI_Failure:
  73.     define %FailureMsg = "NUI not accepted";
  74.     exit %Failure;
  75.  
  76. Datex_Failure:
  77.     define %FailureMsg = "Datex-P not responding";
  78.     exit %Failure;
  79.  
  80. Return_Cancel:
  81.     exit %Cancel;
  82.  
  83. Return_Success:
  84.     exit %Success;
  85.